	//April 2023

	clear all
	cd "$data/3_decision_makers"
	use DM_survey_clean.dta, clear	
	drop if InteractWithParents=="No"
	bysort DMType2: generate NumObs = _N	
	replace DMType2="Other" if NumObs<20
	drop NumObs
	bysort DMType2: generate NumObs = _N	
	
	tabstat ContactMomFirstPct ContactDadFirstPct NumObs, by(DMType2)

	
graph bar (mean) ContactMomFirstPct (mean) ContactDadFirstPct ,  ///
	text(1.02 50 "32         27        77        104       30         63         44", size(small))   ///
	over(DMType2, label(angle(55)) sort(ContactMomFirstPct)) ///
	stack bar(1, fcolor(orange) lcolor(orange)) bar(2, fcolor(ltblue%70) lcolor(ltblue)) ///
	ytitle(Proportion) ylab (,nogrid) ///
	legend(order(1 "Call Mother 1st" 2 "Call Father 1st") row(1)) ///
	bargap(30)  yline(.5) yscale(range(0(.1)1))
	graph display, ysize(6) xsize(5.5)
cd "$output/figures"	
graph export "Figure1_PanelB.png", as(png) replace	
  	
	
	ttest ContactMomFirstPct==0.5 if DMType2=="Sports Leader" //Pr(T > t) = 0.0781** 	N=32
	ttest ContactMomFirstPct==0.5 if DMType2=="Tutor" 			//Pr(T > t) = 0.0000** 	N=27	
	ttest ContactMomFirstPct==0.5 if DMType2=="Medical/Dental" 	//Pr(T > t) = 0.0000** 	N=77
	ttest ContactMomFirstPct==0.5 if DMType2=="Extracurricular Leader (not sport)" 	//Pr(T > t) = 0.0000** 	N=30
	ttest ContactMomFirstPct==0.5 if DMType2=="School Related" 	//Pr(T > t) = 0.0000** 	N=63
	ttest ContactMomFirstPct==0.5 if DMType2=="Childcare provider" 	//Pr(T > t) = 0.0000** 	N=44
	ttest ContactMomFirstPct==0.5 if DMType2=="Other" 	//Pr(T > t) = 0.0000** 	N=104

	
	**** Table M.1 ******
	gen female = 0 
	replace female = 1 if Gender == "Female"

	drop if DMType2 == "Other"
	
	tabstat female, by(DMType2)
	tabstat ContactMomFirstPct, by(DMType2)

	preserve
	collapse (mean) female ContactMomFirstPct (count) N = female, by(DMType2)
	export delimited using "$tables/Table_M1.csv", replace
	restore

	 
	//R1 Comment 3
	count if HouseholdType=="One mother and one father raising child(ren) in a shared household"&HH_Signup_Primary=="Yes"&HH_SignUp=="Yes" // 86 moms/dads signed up and had to designate a primary parent
	tab MotherVFather if HouseholdType=="One mother and one father raising child(ren) in a shared household"&HH_Signup_Primary=="Yes"&HH_SignUp=="Yes" // 35 dads in sample, 51 moms 
	tab HH_Signup_PrimaryWho MotherVFather if HouseholdType=="One mother and one father raising child(ren) in a shared household"&HH_Signup_Primary=="Yes"&HH_SignUp=="Yes"
	//Moms
	disp 48/51
	//Dads
	disp 13/35

	//QJE R&R Larry
	gen Male=(Gender=="Male")
	tabstat Male, by(DMType2)
	 
		

		